-module(list).
-export([sum/1]).
-export([create/1]).
-export([test/0]).

%% =========================
%% Calc sum from 1->N
%% =========================
sum(0)-> 0;
sum(N) -> 
	sum(N-1) + N.
	
create(0) -> [0];
create(N) -> create(N-1) ++ [N].


%% =========================
%% bif function
%% =========================

test()->
	L=[1,2,3,4],
	DoubleX=fun(X)->
			  X*X
			  end,
	applyFunToList(DoubleX,L). 

applyFunToList(Func, L)->
	case L of
		[]->
			false;
		[_|_]->
			L1=lists:map(Func, L),
			L1
	end.



